home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / VBUTIL.ZIP / GLOBAL4.BAS < prev    next >
BASIC Source File  |  1993-03-04  |  13KB  |  318 lines
  1. Type PointRec
  2.   X As Integer
  3.   Y As Integer
  4. End Type
  5.  
  6. '============================================================================'
  7. '                                                                            '
  8. ' Visual Basic global constant file.  This file can be loaded into the       '
  9. ' global module.                                                             '
  10. '                                                                            '
  11. ' Some constants are commented out because they have duplicates (for         '
  12. ' example, NONE appears in several places).                                  '
  13. '                                                                            '
  14. '============================================================================'
  15.  
  16. '========='
  17. '         '
  18. ' General '
  19. '         '
  20. '========='
  21.  
  22. '=================='
  23. '                  '
  24. ' Event parameters '
  25. '                  '
  26. '=================='
  27.  
  28. ' Button and Shift (KeyDown, KeyUp, MouseDown, MouseMove, MouseUp)
  29. Global Const SHIFT_MASK = 1
  30. Global Const CTRL_MASK = 2
  31. Global Const ALT_MASK = 4
  32. Global Const LEFT_BUTTON = 1
  33. Global Const RIGHT_BUTTON = 2
  34. Global Const MIDDLE_BUTTON = 4
  35.  
  36. ' ErrNum (LinkError)
  37. Global Const WRONG_FORMAT = 1
  38. Global Const REQUEST_WITHOUT_INIT = 2
  39. Global Const DDE_WITHOUT_INIT = 3
  40. Global Const ADVISE_WITHOUT_INIT = 4
  41. Global Const POKE_WITHOUT_INIT = 5
  42. Global Const DDE_SERVER_CLOSED = 6
  43. Global Const TOO_MANY_LINKS = 7
  44. Global Const STRING_TOO_LONG = 8
  45. Global Const INVALID_CONTROL_ARRAY_REFERENCE = 9
  46. Global Const UNEXPECTED_DDE = 10
  47. Global Const OUT_OF_MEMORY = 11
  48. Global Const SERVER_ATTEMPTED_CLIENT_OPERATION = 12
  49.  
  50. ' KeyCode (KeyDown, KeyUp)
  51. Global Const KEY_LBUTTON = &H1
  52. Global Const KEY_RBUTTON = &H2
  53. Global Const KEY_CANCEL = &H3
  54. Global Const KEY_MBUTTON = &H4         ' NOT contiguous with L & RBUTTON
  55. Global Const KEY_BACK = &H8
  56. Global Const KEY_TAB = &H9
  57. Global Const KEY_CLEAR = &HC
  58. Global Const KEY_RETURN = &HD
  59. Global Const KEY_SHIFT = &H10
  60. Global Const KEY_CONTROL = &H11
  61. Global Const KEY_MENU = &H12
  62. Global Const KEY_PAUSE = &H13
  63. Global Const KEY_CAPITAL = &H14
  64. Global Const KEY_ESCAPE = &H1B
  65. Global Const KEY_SPACE = &H20
  66. Global Const KEY_PRIOR = &H21
  67. Global Const KEY_NEXT = &H22
  68. Global Const KEY_END = &H23
  69. Global Const KEY_HOME = &H24
  70. Global Const KEY_LEFT = &H25
  71. Global Const KEY_UP = &H26
  72. Global Const KEY_RIGHT = &H27
  73. Global Const KEY_DOWN = &H28
  74. Global Const KEY_SELECT = &H29
  75. Global Const KEY_PRINT = &H2A
  76. Global Const KEY_EXECUTE = &H2B
  77. Global Const KEY_SNAPSHOT = &H2C
  78. Global Const KEY_INSERT = &H2D
  79. Global Const KEY_DELETE = &H2E
  80. Global Const KEY_HELP = &H2F
  81.  
  82. ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z'
  83. ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9'
  84.  
  85. Global Const KEY_NUMPAD0 = &H60
  86. Global Const KEY_NUMPAD1 = &H61
  87. Global Const KEY_NUMPAD2 = &H62
  88. Global Const KEY_NUMPAD3 = &H63
  89. Global Const KEY_NUMPAD4 = &H64
  90. Global Const KEY_NUMPAD5 = &H65
  91. Global Const KEY_NUMPAD6 = &H66
  92. Global Const KEY_NUMPAD7 = &H67
  93. Global Const KEY_NUMPAD8 = &H68
  94. Global Const KEY_NUMPAD9 = &H69
  95. Global Const KEY_MULTIPLY = &H6A
  96. Global Const KEY_ADD = &H6B
  97. Global Const KEY_SEPARATOR = &H6C
  98. Global Const KEY_SUBTRACT = &H6D
  99. Global Const KEY_DECIMAL = &H6E
  100. Global Const KEY_DIVIDE = &H6F
  101. Global Const KEY_F1 = &H70
  102. Global Const KEY_F2 = &H71
  103. Global Const KEY_F3 = &H72
  104. Global Const KEY_F4 = &H73
  105. Global Const KEY_F5 = &H74
  106. Global Const KEY_F6 = &H75
  107. Global Const KEY_F7 = &H76
  108. Global Const KEY_F8 = &H77
  109. Global Const KEY_F9 = &H78
  110. Global Const KEY_F10 = &H79
  111. Global Const KEY_F11 = &H7A
  112. Global Const KEY_F12 = &H7B
  113. Global Const KEY_F13 = &H7C
  114. Global Const KEY_F14 = &H7D
  115. Global Const KEY_F15 = &H7E
  116. Global Const KEY_F16 = &H7F
  117. Global Const KEY_NUMLOCK = &H90
  118.  
  119. ' State (DragOver)
  120. Global Const ENTER = 0
  121. Global Const LEAVE = 1
  122. Global Const OVER = 2
  123.  
  124. '====================='
  125. '                     '
  126. ' Function parameters '
  127. '                     '
  128. '====================='
  129.  
  130. ' MsgBox parameters
  131. Global Const MB_OK = 0                 ' OK button only
  132. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  133. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  134. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  135. Global Const MB_YESNO = 4              ' Yes and No buttons
  136. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  137.  
  138. Global Const MB_ICONSTOP = 16          ' Critical message
  139. Global Const MB_ICONQUESTION = 32      ' Warning query
  140. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  141. Global Const MB_ICONINFORMATION = 64   ' Information message
  142.  
  143. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  144. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  145. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  146.  
  147. ' MsgBox return values
  148. Global Const IDOK = 1                  ' OK button pressed
  149. Global Const IDCANCEL = 2              ' Cancel button pressed
  150. Global Const IDABORT = 3               ' Abort button pressed
  151. Global Const IDRETRY = 4               ' Retry button pressed
  152. Global Const IDIGNORE = 5              ' Ignore button pressed
  153. Global Const IDYES = 6                 ' Yes button pressed
  154. Global Const IDNO = 7                  ' No button pressed
  155.  
  156.  
  157. '==================='
  158. '                   '
  159. ' Method parameters '
  160. '                   '
  161. '==================='
  162.  
  163. ' Drag (controls)
  164. Global Const CANCEL = 0
  165. Global Const BEGIN_DRAG = 1
  166. Global Const END_DRAG = 2
  167.  
  168. ' GetData, GetFormat, SetData (Clipboard)
  169. Global Const CF_LINK = &HBF00
  170. Global Const CF_TEXT = 1
  171. Global Const CF_BITMAP = 2
  172. Global Const CF_METAFILE = 3
  173. Global Const CF_DIB = 8
  174.  
  175. ' Show (form)
  176. Global Const MODAL = 1
  177. Global Const MODELESS = 0
  178.  
  179. '================='
  180. '                 '
  181. ' Property values '
  182. '                 '
  183. '================='
  184.  
  185. ' Alignment (label)
  186. Global Const LEFT_JUSTIFY = 0          ' 0 - Left Justify
  187. Global Const RIGHT_JUSTIFY = 1         ' 1 - Right Justify
  188. Global Const CENTER = 2                ' 2 - Center
  189.  
  190. ' BackColor, ForeColor, FillColor (standard RGB colors: form, controls)
  191. Global Const BLACK = &H0&
  192. Global Const RED = &HFF&
  193. Global Const GREEN = &HFF00&
  194. Global Const YELLOW = &HFFFF&
  195. Global Const BLUE = &HFF0000
  196. Global Const MAGENTA = &HFF00FF
  197. Global Const CYAN = &HFFFF00
  198. Global Const WHITE = &HFFFFFF
  199.  
  200. ' BackColor, ForeColor, FillColor (system colors: form, controls)
  201. Global Const SCROLL_BARS = &H80000000           ' Scroll-bars gray area.
  202. Global Const DESKTOP = &H80000001               ' Desktop.
  203. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  204. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  205. Global Const MENU_BAR = &H80000004              ' Menu background.
  206. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  207. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  208. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  209. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  210. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  211. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  212. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  213. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  214. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  215. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  216. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  217. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  218. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  219. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  220.  
  221. ' BorderStyle (form, label, picture box, text box)
  222. Global Const NONE = 0